home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb4comms / commdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1996-03-25  |  2.6 KB  |  95 lines
  1. Attribute VB_Name = "COMMDEMO1"
  2.  
  3. ' Communication Constants
  4. Global Const NOPARITY = 0
  5. Global Const ODDPARITY = 1
  6. Global Const EVENPARITY = 2
  7. Global Const MARKPARITY = 3
  8. Global Const SPACEPARITY = 4
  9. Global Const ONESTOPBIT = 0
  10. Global Const ONE5STOPBITS = 1
  11. Global Const TWOSTOPBITS = 2
  12. Global Const IGNORE = 0
  13. Global Const INFINITE = &HFFFF
  14. Global Const CE_RXOVER = &H1
  15. Global Const CE_OVERRUN = &H2
  16. Global Const CE_RXPARITY = &H4
  17. Global Const CE_FRAME = &H8
  18. Global Const CE_BREAK = &H10
  19. Global Const CE_CTSTO = &H20
  20. Global Const CE_DSRTO = &H40
  21. Global Const CE_RLSDTO = &H80
  22. Global Const CE_TXFULL = &H100
  23. Global Const CE_PTO = &H200
  24. Global Const CE_IOE = &H400
  25. Global Const CE_DNS = &H800
  26. Global Const CE_OOP = &H1000
  27. Global Const CE_MODE = &H8000
  28. Global Const IE_BADID = (-1)
  29. Global Const IE_OPEN = (-2)
  30. Global Const IE_NOPEN = (-3)
  31. Global Const IE_MEMORY = (-4)
  32. Global Const IE_DEFAULT = (-5)
  33. Global Const IE_HARDWARE = (-10)
  34. Global Const IE_BYTESIZE = (-11)
  35. Global Const IE_BAUDRATE = (-12)
  36. Global Const EV_RXCHAR = &H1
  37. Global Const EV_RXFLAG = &H2
  38. Global Const EV_TXEMPTY = &H4
  39. Global Const EV_CTS = &H8
  40. Global Const EV_DSR = &H10
  41. Global Const EV_RLSD = &H20
  42. Global Const EV_BREAK = &H40
  43. Global Const EV_ERR = &H80
  44. Global Const EV_RING = &H100
  45. Global Const EV_PERR = &H200
  46. Global Const EV_CTSS = &H400
  47. Global Const EV_DSRS = &H800
  48. Global Const EV_RLSDS = &H1000
  49. Global Const SETXOFF = 1
  50. Global Const SETXON = 2
  51. Global Const SETRTS = 3
  52. Global Const CLRRTS = 4
  53. Global Const SETDTR = 5
  54. Global Const CLRDTR = 6
  55. Global Const RESETDEV = 7
  56. Global Const GETMAXLPT = 8
  57. Global Const GETMAXCOM = 9
  58. Global Const GETBASEIRQ = 10
  59. Global Const CBR_110 = &HFF10
  60. Global Const CBR_300 = &HFF11
  61. Global Const CBR_600 = &HFF12
  62. Global Const CBR_1200 = &HFF13
  63. Global Const CBR_2400 = &HFF14
  64. Global Const CBR_4800 = &HFF15
  65. Global Const CBR_9600 = &HFF16
  66. Global Const CBR_14400 = &HFF17
  67. Global Const CBR_19200 = &HFF18
  68. Global Const CBR_38400 = &HFF1B
  69. Global Const CBR_56000 = &HFF1F
  70. Global Const CBR_128000 = &HFF23
  71. Global Const CBR_256000 = &HFF27
  72. Global Const CN_RECEIVE = &H1
  73. Global Const CN_TRANSMIT = &H2
  74. Global Const CN_EVENT = &H4
  75. Global Const CSTF_CTSHOLD = &H1
  76. Global Const CSTF_DSRHOLD = &H2
  77. Global Const CSTF_RLSDHOLD = &H4
  78. Global Const CSTF_XOFFHOLD = &H8
  79. Global Const CSTF_XOFFSENT = &H10
  80. Global Const CSTF_EOF = &H20
  81. Global Const CSTF_TXIM = &H40
  82. Global Const LPTx = &H80
  83.  
  84. ' Application constants
  85.  
  86. ' The size of the input and output buffers we will use
  87. Public Const BufferSize% = 2048
  88.  
  89. Public Comm As dwComm
  90.  
  91. ' The port configuration for the demo
  92.  
  93. Public Dialing% ' Currently dialing
  94.  
  95.